home *** CD-ROM | disk | FTP | other *** search
- /* ANSI C code generated by SmallEiffel. */
- /*
- -- SmallEiffel -- Release (- 0.97) -- FRANCE
- -- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN
- -- University Henri Poincare' - Nancy 1 - email colnet@loria.fr
- -- CRIN (Centre de Recherche en Informatique de Nancy)
- -- FRANCE
- */
- #include <stdio.h>
- #include <stdlib.h>
- #include <signal.h>
- #include <stddef.h>
- typedef struct sT0 T0;
- struct sT0{int id;};
- typedef struct sTstring Tstring;
- struct sTstring{int id;int _capacity;int _count;char *_storage;};
- typedef struct sTarray Tarray;
- struct sTarray{int id;int _capacity;int _lower;
- int _upper;T0 **_storage;};
- T0 *new(int id);
- #define Tgeneral T1
- #define generalId 1
- #define integerId 2
- #define characterId 3
- #define booleanId 6
- #define realId 4
- #define doubleId 5
- #define stringId 7
- #define pointerId 8
- #define expandedId 10
- #define referenceId 11
- #define linkId 12
- #define featureTagId 13
- #define nameId 14
- #define columnId 15
- #define lineId 16
- #define pathId 17
- #define doingWhatId 18
- #define doingInvariantId 19
- #define AF_REQ_1
- #define AF_REQ_0
- #define AF_ENS_1
- #define AF_ENS_0
- #define AF_INV_1
- #define AF_INV_0
- #define AF_LIV_1
- #define AF_LIV_0
- #define AF_CIV_1
- #define AF_CIV_0
- #define AF_1 AF_CIV_1 AF_LIV_1 AF_INV_1 AF_ENS_1 AF_REQ_1
- #define AF_0 AF_CIV_0 AF_LIV_0 AF_INV_0 AF_ENS_0 AF_REQ_0
- typedef struct sT26 T26;
- typedef void * T8;
- typedef struct sT45 T45;
- typedef struct sT32 T32;
- typedef struct sT39 T39;
- typedef struct sTstring T7;
- typedef int T6;
- typedef int T2;
- typedef struct sT40 T40;
- typedef struct sT38 T38;
- typedef struct sT46 T46;
- typedef struct sTarray T43;
- typedef char T3;
- struct sT26{int id;};
- struct sT45{int id;int _modulus;int _free;T0* _chain;int _has_mem;int _count;T0* _buckets;T0* _store;int _item_mem;T0* _keys;};
- struct sT32{int id;void * _output_stream;};
- struct sT39{int id;T0* _mode;T0* _path;void * _input_stream;char _last_character_memory;};
- struct sT40{int id;};
- struct sT38{int id;void * _output_stream;};
- struct sT46{int id;int _capacity;int _lower;int _upper;T2 *_storage;};
- T0* rT26get_environment_variable(T26 *C,T0* a1);
- extern int ofBC27directory_separator;
- extern T3 oRBC27directory_separator;
- char rT26directory_separator(T26 *C);
- void rT26die_with_code(T26 *C,int a1);
- extern T0*oRBC27hlp_file_name;
- void rT26add_directory(T26 *C,T0* a1,T0* a2);
- void rT26print_hlp(T26 *C,T0* a1);
- extern T0*oRBC1std_error;
- T0* rT26clone(T26 *C,T0* a1);
- extern T0*oRBC27small_eiffel;
- extern T0*oRBC1std_output;
- extern int ofBC27small_eiffel_directory;
- extern T0*oRBC27small_eiffel_directory;
- T0* rT26small_eiffel_directory(T26 *C);
- void rT26copy(T26 *C,T0 * a1);
- void rT26make(T26 *C);
- int rT26file_exists(T26 *C,T0* a1);
- void rT45resize(T45 *C,int a1);
- T0* rT45clone(T45 *C,T0* a1);
- T0* rT45at(T45 *C,T0* a1);
- void rT45put(T45 *C,T0* a1,T0* a2);
- void rT45standard_copy(T45 *C,T0 * a1);
- void rT45copy(T45 *C,T0 * a1);
- void rT45expand(T45 *C);
- int rT45has(T45 *C,T0* a1);
- void rT45make(T45 *C);
- void rT32die_with_code(T32 *C,int a1);
- void rT32put_string(T32 *C,T0* a1);
- void rT32crash(T32 *C);
- void rT32copy(T32 *C,T0 * a1);
- void rT32put_character(T32 *C,char a1);
- void rT32make(T32 *C);
- int rT39end_of_input(T39 *C);
- int rT39is_connected(T39 *C);
- void rT39disconnect(T39 *C);
- extern T0*oRBC39last_string;
- char rT39last_character(T39 *C);
- void rT39connect_to(T39 *C,T0* a1);
- void rT39skip_separators(T39 *C);
- void * rT39fopen(T39 *C,T0* a1,T0* a2);
- void rT39copy(T39 *C,T0 * a1);
- void rT39read_word(T39 *C);
- void rT39read_line_in(T39 *C,T0* a1);
- void rT39read_line(T39 *C);
- void rT39read_character(T39 *C);
- char rT7_ix64(T7 *C,int a1);
- int rT7hash_code(T7 *C);
- void rT7extend(T7 *C,char a1);
- void rT7to_upper(T7 *C);
- void rT7remove_last(T7 *C,int a1);
- int rT7has_suffix(T7 *C,T0* a1);
- int rT7empty(T7 *C);
- char rT7item(T7 *C,int a1);
- int rT7is_equal(T7 *C,T0* a1);
- void rT7append(T7 *C,T0* a1);
- char rT7last(T7 *C);
- void rT7put(T7 *C,char a1,int a2);
- void rT7copy(T7 *C,T0* a1);
- void rT7prepend(T7 *C,T0* a1);
- void rT7to_lower(T7 *C);
- void rT7make(T7 *C,int a1);
- int rT2min(T2 C,int a1);
- int rT2max(T2 C,int a1);
- T0* rT40find_path_for(T40 *C,T0* a1);
- T0* rT40get_environment_variable(T40 *C,T0* a1);
- char rT40directory_separator(T40 *C);
- void rT40die_with_code(T40 *C,int a1);
- extern int ofBC40loading_path;
- extern T0*oRBC40loading_path;
- T0* rT40loading_path(T40 *C);
- void rT40open_read(T40 *C,T0 * a1,T0* a2);
- T0* rT40clone(T40 *C,T0* a1);
- extern int ofBC40rename_dictionary;
- extern T0*oRBC40rename_dictionary;
- T0 * rT40rename_dictionary(T40 *C);
- void rT40append_loading_path_in(T40 *C,T0* a1);
- extern int ofBC27tmp_file_read;
- extern T0*oRBC27tmp_file_read;
- T0 * rT40tmp_file_read(/*C*/void);
- T0* rT40small_eiffel_directory(T40 *C);
- void rT40copy(T40 *C,T0 * a1);
- int rT40file_exists(T40 *C,T0* a1);
- void rT38die_with_code(T38 *C,int a1);
- void rT38put_string(T38 *C,T0* a1);
- void rT38crash(T38 *C);
- void rT38append_file(T38 *C,T0* a1);
- extern int ofBC33tmp_file_read;
- extern T0*oRBC33tmp_file_read;
- T0 * rT38tmp_file_read(/*C*/void);
- void rT38copy(T38 *C,T0 * a1);
- void rT38put_character(T38 *C,char a1);
- void rT38make(T38 *C);
- void rT46clear_all(T46 *C);
- int rT46count(T46 *C);
- void rT46set_all_with(T46 *C,int a1);
- void rT46resize(T46 *C,int a1,int a2);
- int rT46item(T46 *C,int a1);
- void rT46put(T46 *C,int a1,int a2);
- void rT46copy(T46 *C,T0* a1);
- void rT46make(T46 *C,int a1,int a2);
- void rT43clear(T43 *C);
- void rT43clear_all(T43 *C);
- int rT43count(T43 *C);
- void rT43set_all_with(T43 *C,T0* a1);
- void rT43resize(T43 *C,int a1,int a2);
- T0* rT43item(T43 *C,int a1);
- void rT43add_last(T43 *C,T0* a1);
- void rT43put(T43 *C,T0* a1,int a2);
- void rT43copy(T43 *C,T0* a1);
- void rT43make(T43 *C,int a1,int a2);
- char rT3to_upper(T3 C);
- int rT3is_digit(T3 C);
- int rT3is_letter(T3 C);
- int rT3is_separator(T3 C);
- char rT3to_lower(T3 C);
- extern int argument_count;
- extern T0 **argument;
- #include <string.h>
- char *s2e(Tstring *s);
- Tstring *e2s(char *e);
- #include <stdarg.h>
- T0 *ma(int aid,int eid,int argc,...);
-
- extern Tstring *ms1;
- extern Tstring *ms5;
- extern Tstring *ms14;
- extern Tstring *ms17;
- extern Tstring *ms18;
- extern Tstring *ms20;
- extern Tstring *ms21;
- extern Tstring *ms22;
- extern Tstring *ms24;
- extern Tstring *ms25;
- extern Tstring *ms26;
- extern Tstring *ms28;
- extern Tstring *ms29;
- extern Tstring *ms30;
- extern Tstring *ms31;
- extern Tstring *ms35;
- extern Tstring *ms36;
- extern Tstring *ms39;
- extern Tstring *ms40;
- extern Tstring *ms41;
- extern Tstring *ms43;
- extern Tstring *ms44;
- extern Tstring *ms45;
- extern Tstring *ms46;
- extern Tstring *ms47;
- extern Tstring *ms48;
- extern Tstring *ms51;
- extern Tstring *ms52;
- extern Tstring *ms53;
- extern Tstring *ms54;
- extern Tstring *ms55;
- extern Tstring *ms56;
- extern Tstring *ms57;
- extern Tstring *ms58;
- extern Tstring *ms59;
- extern Tstring *ms60;
- extern Tstring *ms61;
- void rsp(void);
- void sigrsp(int sig);
- void XrT28copy(void *C,T0* a1);
- extern size_t s[];
- extern Tstring * gt[];
- extern Tstring * g[];
- extern char * p[];
- void initialize(void);
-